1 REM ---------------------------------
2 REM -          STADI V1.1           -
3 REM -                               -
4 REM -      (C) BY INGO TACK         -
5 REM -        4630 BOCHUM 6          -
6 REM ---------------------------------
7 :
12 I=I+1
14 IF I=1THENLOAD"ERW.1",8,1
90 :
91 REM --------------------------------
92 REM -         TITELBILD            -
93 REM --------------------------------
99 :
100 POKE 53280,0 :POKE 53281,0 :PRINT CHR$(14 )CHR$(147);
101 PRINT"[158][176]";:FOR Z=1 TO 38:PRINT"`";:NEXT
102 PRINT"[174]}   sTAHLBETONBEMESSUNG VON sTUETZEN   [146]}";
103 PRINT"}     MIT EINER sCHLANKHEIT <= 70      [146]}";
104 PRINT"[171]";:FOR Z=1 TO 38:PRINT"`";:NEXT
105 PRINT"[179]}   dAS pROGRAMM BERECHNET FOLGENDE    [158]}";
106 PRINT"}"SPC(12)"dRUCKGLIEDER:"SPC(13)"[158]}";
107 PRINT"[171]";:FOR Z=1 TO 38:PRINT"`";:NEXT
108 PRINT"[179]}   - ZENTRISCH BELASTETE sTUETEZEN    [158]}";
109 PRINT"}"SPC(11)"OHNE kNICKGEFAHR"SPC(11)"[158]}";
110 PRINT"[221]   -  BEI [194]EANSPRUCHUNG DURCH [194]IEGE-  [158][221]";
111 PRINT"}"SPC(7)"MOMENTE MIT nORMALKRAFT"SPC(8)"[158]}";
112 PRINT"[221]"SPC(38)"[221][221]  [196]IE [203]NICKSICHERHEIT WIRD NACH DEN   [158][221]";
113 PRINT"[221]        [197]ULER [198]AELLEN  ERMITTELT"SPC(6)"[158][221]";
114 PRINT"}   (BEI UNVERSCHIEBLICHEN sYSTEMEN)   }";
115 PRINT"}"SPC(38)"}}    dIE bERECHNUNGEN ERFOLGEN NACH    }";
116 PRINT"}"SPC(15)"din 1045"SPC(15)"}";
117 PRINT"[171]";:FOR Z=1 TO 38:PRINT"`";:NEXT
118 PRINT"[179]}"SPC(11)"[159](C) BY iNGO tACK"SPC(11)"[158]}";
119 PRINT"}"SPC(14)"[159]jULI 1986"SPC(15)"[158]}";
120 PRINT"[173]";:FOR Z=1 TO 38:PRINT"`";:NEXT
121 PRINT"[189]";
130 FORW=1TO5000:NEXTW
150 GOSUB9960
151 :
152 REM -------------------------------
153 REM -        EINGABEMENUE         -
154 REM -------------------------------
155 :
156 GOSUB10000
160 GOSUB5000 :REM BAUSTOFFEINGABE
163 GOSUB10000
165 GOSUB5100 :REM QUERSCHNITT
170 GOSUB10000
175 GOSUB5200 :REM SCHNITTKRAEFTE
181 GOTO 5400 :REM EINGABEFEHLER
182 GOSUB10000
185 GOSUB5300 :REM FRAGE AUF KSN
190 IF KSN=0THEN M0=ABS(M2):D2=D:GOTO355
194 :
195 REM -------------------------------
200 REM -       BERECHNUNG SK         -
201 REM -------------------------------
202 :
205 IFA2<>0THEN225
210 IFA1=1THEN L=S1:GOTO230
215 IFA1=2THEN L=S2:GOTO230
220 IFA1=3THEN L=S3:GOTO230
225 IF(A1=1ANDA2=2) OR (A1=2ANDA2=1) THENS=S1+S2:GOTO229
226 IF(A1=2ANDA2=3) OR (A1=3ANDA2=2) THENS=S2+S3:GOTO229
227 IF(A1=1ANDA2=3) OR (A1=3ANDA2=1) THENS=S1+S3:GOTO229
229 L=S/2
230 GOSUB10000
235 SYS AUS,5,5,"[196]ER [203]ORREKTURWERT [194]ETA FUER DAS"
240 SYS AUS,5,7,"[211]YSTEM LAUTET :";:PRINTL
241 PRINT"[158]"
245 SYS AUS,5,10,"[215]IE LAUTET DIE [203]NICKLAENGE H  [M] "
250 SYS AUS,15,12,"[211]K = ";:SYS EIN,5,E2$,A$:SK=VAL(A$)
255 SK=SK*L
260 SYS AUS,5,15,"[196]IE [203]NICKLAENGE BEZOGEN AUF DAS"
265 SYS AUS,5,17,"[211]YSTEM BETRAEGT :";:PRINTSK;"M"
290 :
291 REM -------------------------------
292 REM -  BERECHNUNG DER SCHLANKHEIT -
293 REM -------------------------------
294 :
300 L1=SK/(0.289*(B/100))
305 L2=SK/(0.289*(D/100))
306 IFL1>L2THENL=L1
307 IFL2>=L1THENL=L2
308 IF ABS(M2)=0ANDABS(M1)=0THENGL=45:GOTO315
309 IF L> 70THEN5500
310 GL=45-25*M1/M2
315 IF L1>GLTHEN L=L1:D2=B:GOTO340
320 IF L2>GLTHEN L=L2:D2=D:GOTO340
321 IF F1=1THEN2000
325 GOTO 500:REM REGELBEMESSUNG
326 :
327 REM -------------------------------
328 REM -      BERECHNUNG VON MO      -
329 REM -------------------------------
330 :
340 IF ABS(M2)=0 AND ABS(M1)=0 THEN M0=0:GOTO355
345 IF ABS(M2)<>0AND ABS(M1)=0 THEN M0=0.6*ABS(M2):GOTO355
350 M0=0.65*M2+0.35*M1
355 E0=M0/ABS(N):VG=E0/(D2/100)
360 IF VG>=3.5THEN5600
361 IF F1=1 AND KSN =0 THEN 2000
362 IF KSN =0 THEN 500
365 :
370 REM -------------------------------
371 REM -  BERECHNUNG ZUSATZAUSMITTE  -
372 REM -------------------------------
373 :
380 IFVG<=0 OR VG<0.3 THEN F= D2*((L-20)/100)*SQR(0.10+VG):GOTO400
385 IFVG<=0.3ORVG<2.5 THEN F= D2*((L-20)/160):GOTO400
390 IFVG<=2.5ORVG<3.5 THEN F= D2*((L-20)/160)*(3.5-VG)
395 :
396 REM -------------------------------
397 REM -      BERECHNUNG MAX M       -
398 REM -------------------------------
399 :
400 M=M0+ABS(N)*(F/100)
495 :
496 REM -------------------------------
497 REM -    REGELBEMESSUNG TEIL 1    -
498 REM -------------------------------
499 :
500 IF M0<>0 OR  M1<>0 OR  M2<>0 OR M<>0  THEN 700 :REM   REGELBEMESSUNG TEIL 2
501 :
505 REM ***  GEBUNDENE BEMESSUNG    ***
506 :
510 NB=B*D*((BR/10)/2.1)
515 NS=ABS(N)-NB
520 IF NS<0THEN 540
525 EA=NS/((BS/10)/2.1)
530 A1=EA/2:GOTO 2000
531 :
535 REM *** STAT. ERF. QUERSCHNITT  ***
536 :
540 IF BS=220THENGR=((BR/10)/2.1)/.008+10.5:GOTO 550
545 GR=((BR/10)/2.1)/.008+20
550 EA=ABS(N)/GR
555 A1=EA/2:F1=1:GOTO 2000
557 :
558 REM ***     FREIE BEMESSUNG     ***
559 :
560 GOSUB10000
565 SYS AUS,5,6,"[194]EWEHRUNGSANTEIL :"
570 SYS AUS,5,7,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
574 SYS AUS,5,9 ,"0,8 % - 1,5 %  WIRTSCHAFTLICH"
576 SYS AUS,5,11,"1,5 % - 3,0 %  STAERKER BEWEHRT"
578 SYS AUS,5,13,"3,0 % - 6,0 %  STARK BEWEHRT"
590 SYS AUS,5,17,"[194]EWEHRUNGSANTEIL MUE =>";
595 SYS EIN,3,E2$,A$:P=VAL(A$)/100
600 GI=((BR/10)/2.1)+P*((BS/10)/2.1)
605 AB=ABS(N)/GI
610 GOSUB10000
615 SYS AUS,5,7,"[211]OLL EIN [205]ASS DES [209]UERSCHITTES"
620 SYS AUS,8,9,"VORGEGEBEN WERDEN (J/N)? "
625 SYS AUS,5,13,"[215]IRD  EIN ' N ' EINGEGEBEN, SO"
630 SYS AUS,5,15,"WIRD DIE [193]BMESSUNG DER [211]TUETZE"
635 SYS AUS,12,17,"  QUADRATISCH !!"
640 GETA$:IFA$=""THEN640
645 IFA$="N"THEN 670
650 IFA$<>"J"THEN640
655 SYS AUS,5,20,"[211]EITENLAENGE [CM] B = ";:
660 SYS EIN,5,E2$,A$
665 B=VAL(A$)
667 D=AB/B
669 GOTO675
670 B=SQR(AB):D=B
675 B=INT(B+.5):D=INT(D+.5)
676 GR=((BR/10)/2.1)/.008+20
680 EA=P*AB:A1=EA/2:F1=2:GOTO 182
690 :
691 REM -------------------------------
692 REM -    REGELBEMESSUNG TEIL 2    -
693 REM -------------------------------
694 :
695 REM ***   BESTIMMUNG VOM MAX M  ***
700 IFABS(M2)>MTHEN MX=ABS(M2):GOTO710
705 MX=ABS(M)
710 D2=(D1*2)/D
715 GOSUB10000
720 SYS AUS,7,5,"[194]IEGUNG MIT [206]ORMALKRAFT UND"
722 SYS AUS,12,6,"KLEINER [193]USMITTE"
723 SYS AUS,5,8,"[197]S IST DAS [205]OMENTEN-[206]ORMALKRAFT"
725 SYS AUS,10,9,"[196]IAGRAMM D1/D = ";
727 PRINTUSR(D2),5,2
730 SYS AUS,15,10,"[158]ZU BENUTZEN."
735 N1=(N *.001)/((B*D*.0001)*BR)
740 M1=(MX*.001)/((B*D*D*.000001)*BR)
745 IFABS(M1)<0.045THEN800
750 IFABS(N1)<0.1 THEN800
755 SYS AUS,5,12,"M = ";:PRINTUSR(M1),6,3:PRINT"[158]"
760 SYS AUS,5,14,"N = ";:PRINTUSR(N1),6,3:PRINT"[158]"
765 SYS AUS,5,16,"[194]ITTE ENTNEHMEN [211]IE AUS DEM"
770 SYS AUS,8,18,"[196]IAGRAMM [215]01=[215]02 = ";
775 SYS EIN,5,E2$,A$
777 W=VAL(A$)
779 MUE=W/((BS/10)/1.75)
780 A1=MUE*B*D:EA=2*A1
785 GOTO2000
790 :
791 REM *** STAT. ERF. QUERSCHNITT  ***
792 :
800 SYS AUS,5,12,"[196]IE [215]ERTE M UND N SIND UNGUENST-"
802 SYS AUS,5,13,"IG. => STAT. ERF. [209]UERSCHNITT":PRINT"
810 M2[178]M1[172]5:N2[178]N1[172]5:M3[178]M1[172]10:N3[178]N1[172]10
815 [158] AUS, 5,15,"M X 1 =";:[153][183](M1),6,3
816 [158] AUS,20,15,"N X 1 =";:[153][183](N1),6,3
817 [158] AUS, 5,16,"M X 5 =";:[153][183](M2),6,3
818 [158] AUS,20,16,"N X 5 =";:[153][183](N2),6,3
819 [158] AUS, 5,17,"M X10 =";:[153][183](M3),6,3
820 [158] AUS,20,17,"N X10 =";:[153][183](N3),6,3
825 [158] AUS,5,19,"ATNUS STR$IAGRAMM N$ = ";
830 [158] EIN,5,E2$,A$
832 N1[178][197](A$):N1[178][182](N1)
835 W[178].004[172]((BS[173]10)[173]1.75)
840 B1[178]([182](N)[172].001)[173](N1[172](D[173]100)[172]BR)
845 A1[178].004[172]D[172]B1[172]100
847 EA[178]2[172]A1
850 [137]2000
990 :
1991 [143] ------------------------------
1992 [143] -     BERECHNUNG BEWEHRUNG   -
1993 [143] ------------------------------
1994 :
2000 [139] B[179][178]40 [175] D[179][178]40 [167]ZA[178]4:[137]2045
2001 [139] B[179][178]40 [167] Z1[178]2 :[137]2018
2002 [139] D[179][178]40 [167] Z2[178]2 :[137]2005
2003 :
2005 Z[178]1
2010 Z[178]Z[170]1
2015 [139](B[173]Z)[179][178]30[167]Z1[178]Z[170]1:[137]2017
2016 [137]2010
2017 [139] Z2[179][177]0[167]2030
2018 Z[178]1
2019 Z[178]Z[170]1
2020 [139](D[173]Z)[179][178]30[167]Z2[178]Z[170]1:[137]2030
2025 [137]2019
2030 ZA[178](Z1[170]Z2)[172]2:ZA[178]ZA[171]4
2035 :
2042 [143] ***     BEST. ERF. AS      ***
2043 :
2045 [129] DS[178]1.2[164]1.6[169].2
2050 [141]2500:AT[178]ZA[172]SA
2055 [139]AT[177][178]EA[167] 2600
2060 [130]
2065 DS[178]2.0:[141]2500:AT[178]ZA[172]SA:[139]AT[177][178]EA[167]2600
2070 DS[178]2.5:[141]2500:AT[178]ZA[172]SA:[139]AT[177][178]EA[167]2600
2075 DS[178]2.8:[141]2500:AT[178]ZA[172]SA:[139]AT[177][178]EA[167]2600
2080 ZA[178]ZA[170]2:[137]2045
2490 :
2491 [143] ***   BER. KREISFLAECHE    ***
2492 :
2500 SA[178]([255][172]DS[172]DS)[173]4:[142]
2590 :
2591 [143] ------------------------------
2592 [143] -      BEMESSUNG BUEGEL      -
2593 [143] ------------------------------
2594 :
2600 [139] DS[178]1.2[176]DS[178]1.4[176]DS[178]16[167]BU[178]6:[137]2620
2605 [139] DS[178]2.0[176]DS[178]2.5[167]BU[178] 8:[137]2620
2610 BU[178]10
2620 C1[178]12[172]DS:C1[178][181](C1):C2[178]2[172]C1
2700 [137]3000
2990 :
2991 [143] ------------------------------
2992 [143] -   AUSGABE AUF BILDSCHIRM   -
2993 [143] ------------------------------
2994 :
3000 [141]10000
3005 [158] AUS,5,4,"VALINGABEWERTE :"
3006 [158] AUS,5,5,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3010 [158] AUS,5,6,"PEEKAUSTOFFE :"
3011 [158] AUS,5,7,"-----------"
3015 [139]BS[178]220 [167]B1$[178]"PEEK(null)T 220/340":S$[178]" RIGHT$RIGHT$"
3016 [139]BS[178]420 [167]B1$[178]"PEEK(null)T 420/500":S$[178]"RIGHT$RIGHT$RIGHT$"
3017 [139]BS[178]500 [167]B1$[178]"PEEK(null)(null) 500/550":S$[178]"RIGHT$(null)"
3020 [158] AUS,5,8, "PEEKETON PEEK";:[153]BE
3025 [158] AUS,5,9 ,"(null)TAHL ";:[153]B1$
3030 [158] AUS,5,11,"(null)UERSCHNITT :"
3031 [158] AUS,5,12,"-------------"
3035 B2$[178]" [CM]":B3$[178]" [K(null)]":B4$[178]" [K(null)M]":B7$[178]" [CM2]":B8$[178]"[MM]"
3040 [158] AUS,5,13,"B  = ";:[153][183](B),8,2;:[153]B2$
3041 [158] AUS,5,14,"D  = ";:[153][183](D),8,2;:[153]B2$
3042 [158] AUS,5,15,"C  = ";:[153][183](D1),8,2;:[153]B2$
3050 [158] AUS,5,17,"(null)CHNITTKRAEFTE :"
3051 [158] AUS,5,18,"----------------"
3052 [158] AUS,5,19,"(null)  = ";:[153][183](N),8,2;:[153]B3$
3055 [158] AUS,5,20,"(null)2 = ";:[153][183](E1),8,2;:[153]B4$
3056 [158] AUS,5,21,"(null)1 = ";:[153][183](E2),8,2;:[153]B4$
3057 [158] AUS,12,23,"< WEITER MIT LEN= >"
3058 [146] 653,2
3060 [139] KSN[179][177]1[167] 3500
3061 [141]10000
3065 [158] AUS,12,4,"(null)(null)(null) ERFORDERLICH !!"
3066 [158] AUS,5,6,"GRENZ (null)AMDA    = ";:[153][183](GL),2,0
3067 [158] AUS,5,7,"      (null)AMDA    = ";:[153][183]( L),2,0
3072 B6$[178]" [M]"
3075 [158] AUS,5,11,"(null)NICKLAENGE (null)K = ";:[153][183](SK),6,2;:[153]B6$
3080 [158] AUS,5,14,"(null)O               ";:[153][183](M0),6,2;:[153]B4$
3081 [158] AUS,5,17,"(null)USATZAUSMITTE   ";:[153][183](F ),6,2;:[153]B2$
3085 [158] AUS,5,20,"MAX (null)          = ";:[153][183](M) ,6,2;:[153]B4$
3087 [158] AUS,12,23,"< WEITER MIT LEN= >"
3090 [146] 653,2
3500 [141]10000
3505 [158] AUS,5,4,"(null)AHL DER PEEKEWEHRUNG :"
3510 [158] AUS,5,5,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3520 [158] AUS,5,7,"ERF.       ATNS = ";:[153][183](EA),6,2;B7$
3525 [158] AUS,5,9,"GEW. PEEKEWEHRUNG :"
3526 [158] AUS,5,10,"----------------"
3530 [158] AUS,5,11,"   ";ZA;S$;" DS=";DS[172]10;B8$:[153]"SYS"
3535 [158] AUS,5,13,"VORH.      ATNS = ";:[153][183](AT),6,2;B7$
3545 [158] AUS,5,17,"PEEKUEGELBEMESUNG :"
3550 [158] AUS,5,18,"----------------"
3552 [158] AUS,5,19,"PEEKUEGEL DSBU   = ";BU;B8$
3553 [158] AUS,5,21,"SBU = ";:[153][183](C1),2,0;B2$;"  SBU' = ";
3555 [153][183](C2),2,0;B2$
3560 [158] AUS,12,23,"< WEITER MIT LEN= >"
3565 [146] 653,2
3570 AS[178]AT
3580 [139]F1[179][177]1[167]3585
3581 ZN[178]AS[172]GR
3582 [137]3605
3585 [139]1[179][177]2[167]3600
3586 ZN[178]AB[172]GR[170](BS[173]2.1)[173]10[172]AS
3587 [137]3605
3600 ZN[178]D[172]B[172]((BR[173]10)[173]2.1)[170]AS[172]((BS[173]10)[173]2.1)
3605 MUE[178](AS[173](B[172]D))[172]100
3610 [141]10000
3615 [158] AUS,5,5,"(null)ULAESSIGE PEEKELASTUNG :"
3620 [158] AUS,5,6,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3621 [158] AUS,5,9,"ZUL. (null) = ";:[153][183](ZN),8,2;B3$
3625 [158] AUS,5,12,"PEEKEWEHRUNGSGEHALT :"
3630 [158] AUS,5,13,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
3635 [158] AUS,5,16,"(null)UE    = ";:[153][183](MUE),8,2;" [%]"
3640 [158] AUS,12,23,"< WEITER MIT LEN= >"
3645 [146] 653,2
3650 [141]10000
3655 [158] AUS,5,10,"(null)OLLEN DIE VALRGEBNISSE AUF EINEM"
3660 [158] AUS,6,12,"STR$RUCKER  AUSGEGEBEN  WERDEN ?"
3665 [161]A$:[139]A$[178]""[167]3665
3670 [139]A$[178]"J"[167]4000
3675 [139]A$[179][177]"N"[167]3665
3680 :[156]:[137]150
3990 :
3991 [143] ------------------------------
3992 [143] -   DRUCKERAUSGABE MPS 801   -
3993 [143] ------------------------------
3994 :
4000 [159]4,4:[151]768,185:[152]4:[160]4:[151]768,139
4005 [139] ST[179][177][171]128[167]4050
4010 [141]10600
4015 [158] AUS,7,17,"STR$RUCKER BITTE EINSCHALTEN !!SYS"
4020 [129]W[178]1[164]1000:[130]:[137]4000
4050 [159]1,4,7
4055 [152]1,[199](14)[199](16)"08(null)TAHLBETONBEMSESSUNG : (null)TUETZEN"
4056 [152]1,[199](15)[199](16)"23(BEI UNVERSCHIEBLICHEN (null)YSTEMEN)"
4064 :
4065 [143] ***    SONDERZEICHEN       ***
4066 :
4068 [143] LAMDA
4075 [131]225,154,132,136,240,128
4078 :
4080 [143] DURCHMESSER
4082 [131]156,162,255,162,156,128
4085 :
4095 [129]I[178]1[164]6
4100 [135] X:S1$[178]S1$[170][199](X):[130]I
4105 [129]I[178]1[164]6
4110 [135] X:S2$[178]S2$[170][199](X):[130]I
4115 [141]10000
4120 [158] AUS,5,5,"(null)OSITIONS-(null)R. : ";
4122 [158] EIN,4,E2$,A$:PO[178][197](A$)
4125 [158] AUS,5,7,"(null)OSITION      : ";
4127 [158] EIN,20,E3$,P$
4130 [152]1,[199](10)[199](10)[199](10)
4132 [152]1,"   (null)OSITIONS-(null)R. : ";PO;"       (null)OSITION   : ";P$
4134 [152]1,[199](10)
4135 [152]1,"   PEEKAUSTOFFE :"
4136 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4140 [152]1,"   PEEKETON :  PEEK";BE;"      (null)TAHL : ";B1$
4142 [152]1
4144 [152]1,"   (null)UERSCHNITT :"
4145 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4147 [152]1,"   B = ";[183](B),8,2;B2$;"     ";"D  = ";[183](D),8,2;B2$;"     ";
4150 [152]1," C  = ";[183](D1),8,2;B2$
4152 [152]1
4156 [152]1,"   (null)CHNITTKRAEFTE :"
4160 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4166 [152]1,"   (null) = ";[183](N),8,2;B3$;"     ";"(null)2 = ";[183](E1),8,2;B4$;"     ";
4167 [152]1,"(null)1 = ";[183](E2),8,2;B4$
4168 [152]1,[199](10)
4170 [139]KSN[179][177]1[167] 4300
4175 [152]1,[199](16)"15(null)NICKSICHERHEITSNACHWEIS IST ERFORDERLICH !!"
4176 [152]1,[199](16)"15TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[199](10)
4180 [152]1,"   CHR$RENZ = ";
4182 [152]1,[199](8)S1$;
4183 [152]1,[199](15);[183](GL),2,0;"   TANTAN>   VORH. "[199](8)S1$;
4184 [152]1,[199](15)" = ";[183](L),2,0
4185 [152]1,[199](10)"   (null)NICKLAENGE  (null)K = ";[183](SK),6,2;B6$;[199](10)
4186 [152]1,"   (null)O = ";[183](M0),6,2;B4$;"   ";
4187 [152]1,"(null)USATZAUSMITTE F = ";[183](F),6,2;B2$;
4190 [152]1,"  MAX (null) = ";[183](M),6,2;B4$
4195 [152]1
4300 [152]1,[199](14)[199](16)"17(null)AHL DER PEEKEWEHRUNG :"
4305 [152]1,[199](16)"17TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("[199](15)[199](10)
4310 [152]1,"   ERF.       ATNS = ";[183](EA),6,2;B7$
4320 [152]1
4325 [152]1,"   GEW. PEEKEWEHRUNG :"
4326 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4330 [152]1,[199](14)"            ";ZA;" ";S$;"  "[199](8)S2$;
4331 [152]1,[199](14)" ";DS[172]10;B8$[199](15)[199](10)
4335 [152]1,"   VORH.      ATNS = ";[183](AT),6,2;B7$
4340 [152]1,[199](10)
4345 [152]1,"   PEEKUEGELBEMESSUNG :"
4346 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4350 [152]1,"   PEEKUEGEL "[199](8)S2$;
4351 [152]1,[199](15)" ";BU;B8$
4360 [152]1,"   SBU    = ";[183](C1),2,0;B2$;"     SBU'    = ";[183](C2),2,0;B2$
4365 [152]1
4370 [152]1,"   (null)ULAESSIGE PEEKELASTUNG :"
4371 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4375 [152]1,"   ZUL. (null) = ";[183](ZN),8,2;B3$[199](10)
4380 [152]1,"   PEEKEWEHRUNGSGEHALT :"
4381 [152]1,"   TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
4382 [152]1,"   MUE    = ";[183](MUE),8,2;" [%]"
4500 [129] W[178]1[164]2000:[130]:[156]:[137]150
4990 [143] ------------------------------
4991 [143] -       EINGABEMENUE         -
4992 [143] ------------------------------
5000 [158] AUS,5,7,"PEEKAUSTOFFE :"
5010 [158] AUS,5,8,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
5020 [158] AUS,5,9,"PEEKETON      : PEEK";:[158] EIN,2,E2$,A$
5025 BE[178][197](A$)
5030 [139]BE[178]15[176]BE[178]25[176]BE[178]35[176]BE[178]45[176]BE[178]55[167]5032
5031 [137]5020
5032 [139]BE[178]15[167]BR[178]10.5:[137]5040
5033 [139]BE[178]25[167]BR[178]17.5:[137]5040
5034 [139]BE[178]35[167]BR[178]23  :[137]5040
5035 [139]BE[178]45[167]BR[178]27  :[137]5040
5036 [139]BE[178]55[167]BR[178]30
5040 [158] AUS,5,11,"PEEKETONSTABSTAHL :"
5050 [158] AUS,5,12,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
5055 [158] AUS,5,13,"<1> => PEEK(null)T 220/340"
5060 [158] AUS,5,14,"<2> => PEEK(null)T 420/500"
5070 [158] AUS,5,15,"<3> => PEEK(null)T 500/550"
5080 [158] AUS,5,17,"PEEKST : ";:[158] EIN ,2,E2$,A$
5085 BS[178][197](A$)
5086 [139]BS[178]1[167]BS[178]220:[142]
5090 [139]BS[178]2[167]BS[178]420:[142]
5095 [139]BS[178]3[167]BS[178]500:[142]
5096 [137]5080
5100 [158] AUS,5,7,"(null)UERSCHNITTEINGABE :"
5110 [158] AUS,5,8,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
5120 [158] AUS,5,9,"PEEKREITE [CM]  B = ";:[158] EIN,5,E2$,A$
5125 B[178][197](A$)
5130 [158] AUS,5,10,"STR$ICKE  [CM]  D = ";:[158] EIN,5,E2$,A$
5135 D[178][197](A$)
5140 [158] AUS,5,12,"PEEKETONDECKUNG :"
5154 [158] AUS,5,13,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
5155 [158] AUS,5,14,"(null)TABDURCHMESSER <= 12MM =>C=1,0CM"
5156 [158] AUS,5,15,"(null)TABDURCHMESSER 14-18MM =>C=1,5CM"
5157 [158] AUS,5,16,"(null)TABDURCHMESSER 20-22MM =>C=2,0CM"
5158 [158] AUS,5,17,"(null)TABDURCHMESSER 25-28MM =>C=2,5CM"
5159 [158] AUS,5,18,"(null)TABDURCHMESSER >= 28MM =>C=3,0CM"
5160 [158] AUS,5,20,"PEEKETONDECKUNG    C [CM]  = ";:
5165 [158] EIN,5,E2$,A$
5170 D1[178][197](A$)
5175 [142]
5200 [158] AUS,5,6,"(null)CHNITTKRAEFTE :"
5210 [158] AUS,5,7,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
5215 [158] AUS,5,8,"(null) IST ALS STR$RUCKKRAFT NEGATIV":[153]"SYS"
5217 [158] AUS,12,9,"EINZUSETZEN !!"
5220 [158] AUS,5,11,"(null)ORMALKRAFT (null) [K(null)] = ";:[158] EIN,7,E2$,A$
5225 N[178][197](A$)
5230 [158] AUS,5,13,"VALINGABE DER VALNDMOMENTE :"
5231 [158] AUS,5,14,"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
5232 [158] AUS,5,15,"(null)OMENTE VORZEICHENGERECHT EINGEBEN!"
5235 [158] AUS,10,17,"(null)(null)2(null) > (null)(null)1(null) !!SYS"
5240 [158] AUS,5,19,"(null)2  [K(null)M] = ";:[158]EIN,7,E2$,A$
5245 M2[178][197](A$):E1[178]M2
5250 [158] AUS,5,21,"(null)1  [K(null)M] = ";:[158]EIN,7,E2$,A$
5255 M1[178][197](A$):E2[178]M1
5260 [142]
5300 [158] AUS,3,11,"(null)OLL EIN (null)NICKSICHERHEITSNACHWEIS"
5310 [158] AUS,6,13,"DURCHGEFUEHRT WERDEN (J/N) ?"
5320 [161]A$:[139]A$[178]""[167]5320
5325 [139]A$[178]"J"[167]KSN[178]1:[141]10050:[142]
5330 [139]A$[178]"N"[167]KSN[178]0:[142]
5340 [137]5320
5400 [139]B[179][177]0 [175] D[179][177]0[167] 182
5405 [137] 560 :[143] FREIE BEMESSUNG
5500 [141]10600:[141]10000
5502 [158] AUS,5,12,"PEEKERECHNUNG WURDE WEGEN FEHLER-"
5505 [153]"      HAFTE VALINGABEN ABGEBROCHEN !!"
5510 [129]W[178]1[164]3000:[130]:[138] 150
5600 [141]10000:[141]10600
5610 [158] AUS,6,11,"PEEKERECHNUNGEN MUESSEN MIT DEM"
5612 [158] AUS,9,13,"KH-(null)ERFAHREN ERMITTELT"
5614 [158] AUS,15,15,"WERDEN !!"
5616 [137]5510
9950 :
9951 [143] ------------------------------
9952 [143] -  UNTERPROGRAMMBIBLIOTHEK   -
9953 [143] ------------------------------
9954 :
9955 [143] ***  PROGRAMMVORBEREITUNG  ***
9956 :
9960 [143] CURSOR NEU SETZTEN
9961 [158] 49152,100
9963 [143] ***    PRINT-AT / INPUT    ***
9965 EIN [178]49488 : AUS[178] 49712
9967 [143] ***       PRINT-USING      ***
9969 S[178]49752:[151]785,S[171]256[172][181](S[173]256):[151]786,S[173]256
9970 :
9980 E1$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
9981 E2$[178]"+-1234567890."
9982 E3$[178]E1$[170]E2$[170]"ATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
9983 E4$[178]"0123"
9990 S[178]0:[142]
9992 [143] ------------------------------
9993 [143] -   BILDSCHIRMSEITENAUFBAU   -
9994 [143] ------------------------------
9995 :
10000 [153] [199](14 )[199](147);
10002 [153]"SYSOR";:[129] Z[178]1 [164] 38:[153]"TAN";:[130]
10004 [153]"^(null)    (null)TAHLBETONBEMESSUNG : (null)TUETZEN    (null)";
10006 [153]"(null)    BEI UNVERSCHIEBLICHEN (null)YSTEMEN    (null)";
10008 [153]"/";:[129] Z[178]1 [164] 38:[153]"TAN";:[130]:[153]"EXP"
10032 :[142]
10040 :
10041 [143] -----------------------------
10042 [143] -  KNICKSICHERHEITSNACHWEIS -
10043 [143] -         SCHAUBILD         -
10044 [143] -----------------------------
10045 :
10050 [153][199](147);
10052 [153]"SYSOR";:[129] Z[178]1 [164] 38:[153]"`";:[130]
10054 [153]"^}    sTAHLBETONBEMESSUNG : sTUETZEN    }";
10056 [153]"}    BEI UNVERSCHIEBLICHEN sYSTEMEN    }";
10058 [153]"/";:[129] Z[178]1 [164] 38:[153]"`";:[130]
10060 [153]"EXPOR````````=";:[129] Z[178]1 [164] 21:[153]"`";:[130]
10062 [153]"=```````^}"[166]8)"} aUSWAHL DES sYSTEMS:}"[166]7)"}";
10064 [153]"}"[166]8)"/";:[129] Z[178]1 [164] 21:[153]"`";:[130]
10066 [153]"EXP"[166]7)"}}"[166]8)"*"[166]9)"`=`"[166]9)"*"[166]7)"SYS}";
10068 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
10070 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
10072 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
10074 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
10076 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
10078 [153]"}"[166]8)"}"[166]10)"}"[166]10)"}"[166]7)"SYS}";
10080 [153]"}"[166]8)"*"[166]9)"`>`"[166]8)"`>`"[166]6)"SYS}";
10082 [153]"}"[166]7)"[1]"[166]8)"[2]"[166]8)"[3]"[166]6)"SYS}";
10084 [153]"}"[166]38)"}}   BEIDE eCKEN  STARR EIN-  STARR     SYS}";
10086 [153]"}    GELENKIG     GESPANNT  GELENKIG   SYS}";
10090 [153]"}"[166]38)"}-``````````````````=```````````````````<";
10092 [153]"(null)* (null)AHL DES (null)YSTEMS(null)(null)WISCHEN   UND   * (null)";
10094 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP";:[153]"ONONON";
10099 [153]""
10100 [158] AUS,28,21," ";:
10101 [158] EIN,2,E4$,A$
10105 A1[178][197](A$)
10110 [158] AUS,34,21," ";:
10115 [158] EIN,2,E4$,A$
10120 A2[178][197](A$)
10125 S1[178]1:S2[178].5:S3[178].7
10130 [142]
10590 :
10591 [143] -----------------------------
10592 [143] -        ALARMTON           -
10593 [143] -----------------------------
10594 :
10600 [151]54296,13:[151]54277,25
10605 [151]54278,68
10610 [151]54273,99:[151]54272,100:[151]54276,33
10615 [129]T[178]1[164]220:[130]
10620 [151]54276,0:[142]
10700 :
10701 [143] -----------------------------
10702 [143] -   LITERATURVERZEICHNIS    -
10703 [143] -----------------------------
10704 :
10705 [143] "(null)OMMELSDORF
10706 REM "[211]TAHLBETONBAU [212]EIL 2
10707 [143] "(null)ERNER RIGHT$NGENIEUR (null)EXTE (null)RIGHT$(null)16
10708 REM " 4.[193]UFLAGE 1986
10709 :
10710 [143] "(null)ENDEHORST/(null)UTH
10711 REM "[194]AUTECHNISCHE [218]AHLENTAFELN
10712 [143] "PEEK.CHR$.(null)EUBNER (null)ERLAG
10713 REM "21.[193]UFLAGE